約 2,871,215 件
https://w.atwiki.jp/annbeyoffice/pages/14.html
EXCEL講座一覧 カウンタ合計 - 人 今日のカウンタ - 人 EXCELの基礎編 【EXCELの基本操作おさらい】 【検索・ジャンプ・置換】 データ活用編 【データの並べ替え】 【オートフィルタの使用】 WORD・POWERPOINTと共通 図・オートシェイプ(図形)・クリップアートの操作は一緒ですので、リンクを貼っておきました。 【図・オートシェイプ・クリップアートを挿入、操作する】 EXCEL応用・関数編 操作法 【ビポッドテーブル?いいえピボットテーブルです^^; 】 【ピボットテーブルを使い尽くす】 関数 【データから該当するデータの合計を求めたい。|データベース関数を使おう】 【絶対か!?相対か!?】 【行か列だけを絶対参照にしたい】 こんなときどうする(トラブル解決編) 【起動がものすごく遅い場合に確認すること】
https://w.atwiki.jp/coupledaysoff/pages/51.html
2008-07-01 16 09 51 (Tue) FSOやFolderクラスを有効にする ファイルの存在確認 ユーザ定義クラス(構造体)を作成する ワークブック存在確認 ワークブック間のワークシートコピー 目次シート作成 相対参照を絶対参照に置換 行コピー挿入 選択範囲の変更を検知する(イベントハンドラ)
https://w.atwiki.jp/bottle/pages/21.html
スクリプトからVBA for Excelを動かす注意事項 スクリプト例 参照:Excelをバックエンドで処理させたい場合 注意:R6以降のEvaluate関数の引数について ツッコミ・コメント スクリプトからVBA for Excelを動かす この手の質問がやはり多めなので、一応掲載。 やり方次第ですが、あるビューに表示されたDBの文書を EXCELで書き出したりすることも可能です。 注意事項 VBA for Excelでの各メソッドで使用されるxl****のような定数は、 ノーツ・スクリプトにそのまま入力してもエラーするだけです。 かならず、以下のスクリプト例のようにConst宣言するか、 値のまま使用するかのどちらかで使用が可能になります。 定数の値のチェック方法は、VBA for Excelの定数の値を調べるを参照してください。 スクリプト例 以下のスクリプトは、あるCSVファイルをEXCELで整形及び集計させるための ボタン・アクション用スクリプト。 #管理人の一言 前に懇談室でスクリプトからEXCELでソートができないというトピックありましたが、 それの回答になるかな? (あの時はちとトラブってて回答できなかったの。。。) あとは複雑な式言語(@関数)をどうやってスクリプトに組み込むか。の参照にもなると思います。 で、管理人はなぜExcel VBAを遅いフロントエンドで処理するかっていうと 動いてるのが実感できるように(PCがロックしてると思われるのがヤダ)してるだけ。 Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Set db = session.CurrentDatabase Set uidoc = ws.CurrentDocument Set doc = uidoc.Document Excelの定数は使えないので実際の値を定義します(定数名は同じにしてあります) Const xlPortrait = 1 縦 入力チェック******************************************** flg = Messagebox ("集計表の作成を開始しますか?",33,"開始確認") If flg = 2 Then Messagebox"集計表の作成を中断します",64,"処理中断" Exit Sub End If ERRMSG = "以下の項目が入力・選択されていません。" motoERRMSG = ERRMSG 入力チェック If doc.Path(0) = "" Or doc.Path(0) = ".csv" Then ERRMSG = ERRMSG + Chr(10) + "・パス取得" End If If ERRMSG motoERRMSG Then Messagebox ERRMSG , MB_OK, "入力エラー" Exit Sub End If 入力チェック終わり*********************************** Dim XObj As Variant Excel自体のオブジェクト Dim Xwkbk As Variant ワークブック(1Excelファイル) Dim XSheet1 As Variant シート Dim XSheet2 As Variant シート Dim i As Integer Dim quotes As String Dim strFormula1 As String, strFormula2 As String quotes = Chr(34) エクセルのインスタンスを作成します Set XObj = CreateObject("Excel.Application") XObj.Visible = True Set Xwkbk = XObj.workbooks Xwkbk.Open(doc.Path(0)) 対象のファイルを開く Set XSheet1 = XObj.Worksheets(1) 本体の表のシート ★R6以降ではここから注意必要⇒参照★ =IF(OR(LEFT(RC[2],1)="P",LEFT(RC[2],1)="R",LEFT(RC[2],1)="Z")=TRUE,RIGHT(RC[2],1), _ IF(LEFT(RC[2},1)="K",IF(MID(RC[2},2,1)="H","E",MID(RC[2},2,1)),IF(LEFT(RC[2},1)="H","E",LEFT(RC[2},1)))) の式を変数に設定 strFormula1 = "=IF(OR(LEFT(RC[2],1)=" quotes "P" quotes ",LEFT(RC[2],1)=" _ quotes "R" quotes ",LEFT(RC[2],1)=" quotes "Z" quotes _ ")=TRUE,RIGHT(RC[2],1)," "IF(LEFT(RC[2],1)=" quotes "K" quotes _ ",IF(MID(RC[2],2,1)=" quotes "H" quotes "," quotes "E" quotes _ ",MID(RC[2],2,1)),IF(LEFT(RC[2],1)=" quotes "H" quotes "," quotes "E" quotes _ ",LEFT(RC[2],1))))" =IF(LEFT(RC[1],1)="K","K" MID,MID(RC[1],2,5))の式を変数に設定 strFormula2 = "=IF(LEFT(RC[1],1)=" quotes "K" quotes "," quotes "K" quotes _ " MID,MID(RC[1],2,5))" With XSheet1 .Name = "data" シート名をdataに変更 .Activate シートをアクティブに 表の整形開始 .Columns.EntireColumn.AutoFit 列幅を自動で設定 .Columns("A A").ColumnWidth = 10 A列幅を10に .Columns("C C").ColumnWidth = 40 C列幅を40に .Columns("B C").Insert B~C列を挿入 表題と式をB~C列に埋め込み .Range("B1").FormulaR1C1 = "S/E/M" .Range("C1").FormulaR1C1 = "共有No" .Range("B2").FormulaR1C1 = strFormula1 .Range("C2").FormulaR1C1 = strFormula2 EndCellAdr = .Range("A1").End(-4121).Row 表の一番下のセルの行番号取得 .Range("B2 C2").Copy .Range("B3 C" EndCellAdr ).PasteSpecial 表の一番下までコピー内容を貼付 小計行を削除する。 Set FCell = .Range("A1 A" EndCellAdr).Find(" 小計") 小計行を検索 Dim FCRow As Long Do While Not FCell Is Nothing FCRow = FCell.row .Rows(FCRow).Delete 検索された小計行を削除 Set FCell = .Range("A1 A" EndCellAdr).Find(" 小計") Loop 今のシートをコピーして集計用シート作成 .Copy(XSheet1) End With Const xlSum = -4157 Dim aryCell(117) As Integer, cnt As Integer, m As Integer cnt = 17 初期化 For m = 0 To 117 aryCell(m) = cnt cnt = cnt + 1 Next Set XSheet2 = XObj.Worksheets("data (2)") 本体の表のシート With XSheet2 集計用シートの内容をソート .Name = "集計1" シート名を集計1に変更 .Activate 表の一番下のセルの行番号取得 EndCellAdr = .Range("A2").End(-4121).Row .Range("A2").Select ソート実行(第1ソート・キーはA2、第2ソート・キーはC2) .Range("A2 ED" EndCellAdr).Sort XSheet2.Range("A2"), 1, XSheet2.Range("C2") まず区分で集計 .Range("A1 ED" EndCellAdr).Subtotal 1, xlSum, aryCell, False 再度表の一番下のセルの行番号取得 EndCellAdr = .Range("A1").End(-4121).Row .Range("A1 ED" EndCellAdr).Subtotal 3, xlSum, aryCell, False 次に共有Noで集計 End With End Sub 参照:Excelをバックエンドで処理させたい場合 以下の方法を使用することによりExcel出力が早くなります。 Re FORMの内容をEXCELに出力して印刷したい。(by ドミノ懇談室(2006~)) #作成者 :かえる りわ (Riwa Kaeru) 2007/1/29 (Mon) 01 52 PM Set excelApplication = CreateObject("Excel.Application") Set excelWorkbook = excelApplication.Workbooks.open("ファイル名") のように、ファイルをバックグラウンドで開き、 データの書き込みが全て終了した後に excelApplication.Visible = True で表示してあげれば表示更新の負荷を減らせるし、 データ書き込み中にユーザに触られる心配もありませんよ。 注意:R6以降のEvaluate関数の引数について 上に挙げた例で、R6以降にてEvaluate関数を使用するとエラーになるそうです。 R5では問題なく動きますけどね。。。 引数の式言語(@関数)にダブルクォーテーション等特殊文字を使用する場合の方法は以下を御参照ください。 Evaluate 関数が「Operation failed」エラーで終了する(by IBM公式) ツッコミ・コメント 名前 コメント
https://w.atwiki.jp/yatteyoruby/pages/24.html
概要 rubyからWindowsのCOMを叩くとExcelのデータの中身を操作・閲覧できます。 やり方は下記のページなんかに記述されています。 Rubyist Magazine - Win32OLE 活用法 【第 2 回】 Excel excel_lib rubyのWIN32OLEライブラリを用いるとExcelが操作できます。 しかし、ExcelにはWorkbook,Worksheet,Rangeオブジェクトなどがありますが、 rubyのWIN32OLEで扱うオブジェクトはすべてWIN32OLEクラスになってしまいます。 その問題を解決し、Workbook,Worksheet,Rangeオブジェクトを別個のクラスとして扱うためのライブラリがRubyでExcelのexcel_libとなります。 このライブラリを使うと以下の利点があると思います。 要するにWIN32OLEレベルでExcelをさわるよりこのライブラリを使った方が扱いやすいと思います。 Workbook,Worksheet,Rangeオブジェクトを別個のクラスとして扱えるためわかりやすい。 Workbook,Worksheet,Rangeオブジェクトを拡張したい場合、対応するクラスを拡張すればよい。 各クラスは元のオブジェクトを保持しており、実装していないメソッドも実行でき、拡張が容易に行える。 ライセンスもrubyライセンスなので改変・配布が容易に行える。 ライブラリはrubyスクリプト1ファイルなので解析が容易に行える。 my_excel_lib excel_libを自分に使いやすいように変更してmy_excel_libとしました。 使用例 以下を実行すると、すべてのセルの値を出力し、2列目のセルの値が存在する場合testに変えたtest2.xlsを作成します。 -例 require my_excel_lib Excel.run(false) { |excel| book = excel.copy_book("test.xls") book.worksheets.each { |sheet| sheet.used_range.rows.each { |row| puts row.value.join(",") if row[1] row[1] = "test" end } book.save("test2.xls") } }
https://w.atwiki.jp/clipping-data/pages/10.html
Excelマクロ もっと仕事を楽にするために勉強中 目次 Excelマクロ単一セルの参照 範囲指定によるセル参照 複数範囲指定によるセル参照 選択しているセルの参照→Selection 現在作業対象となっているセルの参照→ActiveCell データの下端のセルの参照 シートを指定してセルを参照 単一セルの参照 Range("A1").Select Cell("1,1").Select 範囲指定によるセル参照 Range("A1 C6").Select Range("A1","C6").Select Range(cell(1,1),cell(6,3)).Select 複数範囲指定によるセル参照 Range("A1 A2,C3 C4").Select 選択しているセルの参照→Selection Range("A1 C6").Select→Selection.Select 現在作業対象となっているセルの参照→ActiveCell Range("A1 B3").Select→ActiveCell.Select データの下端のセルの参照 Cells(1,5以上の数字).End xlUp.Select 上端→xlUp 下端→xlDown 右端→xlToRight 左端→xlToLeft シートを指定してセルを参照 Sheets("シート名").(ドット)参照プロパティ
https://w.atwiki.jp/nisya/pages/38.html
共通 未定義変数検知 自動マクロ起動 入力情報(シート)取得[getSysParaBySheet] アクセスログ出力クラス[cPutAccessLog] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] 保存期間満了ログ削除[Public Function deleteLogSaveLimitOver] ログ出力[Public Function putLog] 終了[Public Function Terminate] ブック制御クラス[cBookControl] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] Excelユーザ名取得[Public Function getExcelUserName] Excel組織名取得[Public Function getExcelOrganizationName] Excelメモリ情報取得[Public Function getExcelMemory] ステータスバー制御開始[Public Function StatusBarStart] ステータスバー表示[Public Function StatusBarPut] ステータスバー制御終了[Public Function StatusBarEnd] カーソル処理中[Public Function CursorWait] 画面更新中止[Public Function DisplayUpdateStop] 画面更新開始[Public Function DisplayUpdateStart] カーソル通常[Public Function CursorNormal] ファイル選択ダイアログ[Public Function getFileNameByDialog] 指定ブックオープン済チェック[Public Function isCheckOpenSelectBook] Excelタイトル変更[Public Function setExcelTitle] Excelタイトル変更停止[Public Function unsetExcelTitle] 終了[Public Function Terminate] シート制御クラス[cSheetControl] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] シート可視不可視[Public Function VisibleSheet] シート存在チェック[Public Function isCheckFoundSheet] シート追加[Function inserSheetName] シート名変更[Function updateSheetName] シート削除 文字列操作 文字列分離[SpilitString] 指定文字列内パターンマッチング[isPatternMatching] メッセージクラス(シート定義)[cMsgBySheet] 初期化Public Function Initialize] ステータス取得[Public Function getStatus] メッセージ内容取得[Public Function getMessage] メッセージボックス表示[Public Function MessageBox] YesNoボックス表示[Public Function YesNoBox] メッセージグループ取得[Public Function getMsgGroup] エラーレベル判定[Public Function isLevelError] 警告レベル判定[Public Function isLevelWarning] 通常レベル判定[Public Function isLevelNormal] 終了[Public Function Terminate] ファイルクラス[cFile] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] 絶対パス変換[Private Function updateRootPathForWin] パス付ファイル名分離[Private Function SplitFileIncPath] パス取得[Public Function getPathName] ファイル名取得[Public Function getFileName] ファイル存在チェック[Public Function isExist] ファイル削除[Public Function deleteFile] ファイルオープン(読込用)[Public Function openFileForRead] ファイルオープン(上書用)[Public Function openFileForOutput] ファイルオープン(追記用)[Public Function openFileForAppend] ファイル書き込み[Public Function writeFileLine] ファイルクローズ[Public Function closeFile] 終了[Public Function Terminate] マシン制御クラス[cMachineControl] 初期化[Public Function Initialize] ステータス取得[Public Function getStatus] コンピュータ名取得[Function getComputerName] 環境変数取得[Function getEnv] ログインユーザ名取得[Function getLoginUserName] OS名取得[Function getOsName] 終了[Public Function Terminate] EXCELブッククラス 初期化 処理概要 戻り値 引数 ステータス取得 処理概要 戻り値 引数 ブック読取専用パスワード設定 処理概要 戻り値 引数 ブック書込専用パスワード設定 処理概要 戻り値 引数 指定ブックオープン済チェック 処理概要 戻り値 引数 ブックオープン 処理概要 戻り値 引数 シート取得 処理概要 戻り値 引数 全シート名取得 処理概要 戻り値 引数 ブッククローズ 処理概要 戻り値 引数 終了 処理概要 戻り値 引数 命名規則 変数名 共通 未定義変数検知 Option Explicit 自動マクロ起動 M_BookAuto_1.0.txt 入力情報(シート)取得[getSysParaBySheet] Ver 1.0 M_getSysParaBySheet_1.0.txt [戻り値] String 取得したパラメータ値 [引 数] isSheetName(String) 取得するシート名 isParNameString(String) パラメータ名 アクセスログ出力クラス[cPutAccessLog] Ver 1.0 Z_cPutAccessLog_1.0.txt cPutAccessLog_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isFormatIncPath(String) ファイル名(パス付) ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし 保存期間満了ログ削除[Public Function deleteLogSaveLimitOver] [戻り値] String CSV形式でプライベート変数内容を返却 False 失敗 [引 数] iiLogSaveDay(Integer) ログ保存期間日数 ログ出力[Public Function putLog] [戻り値] Boolean True 成功 False 失敗 [引 数] strLogMsg(String) ログ内容 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ブック制御クラス[cBookControl] Ver 1.0 Z_cBookControl_1.0.txt cBookControl_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし Excelユーザ名取得[Public Function getExcelUserName] [戻り値] String Excelユーザ名 [引 数] なし Excel組織名取得[Public Function getExcelOrganizationName] [戻り値] String Excel組織名 [引 数] なし Excelメモリ情報取得[Public Function getExcelMemory] [戻り値] String [引 数] iiType(Integer) ステータスバー制御開始[Public Function StatusBarStart] [戻り値] Boolean [引 数] なし ステータスバー表示[Public Function StatusBarPut] [戻り値] Boolean [引 数] lsMsg 表示メッセージ ステータスバー制御終了[Public Function StatusBarEnd] [戻り値] Boolean [引 数] なし カーソル処理中[Public Function CursorWait] [戻り値] Boolean [引 数] なし 画面更新中止[Public Function DisplayUpdateStop] [戻り値] Boolean [引 数] なし 画面更新開始[Public Function DisplayUpdateStart] [戻り値] Boolean [引 数] なし カーソル通常[Public Function CursorNormal] [戻り値] Boolean [引 数] なし ファイル選択ダイアログ[Public Function getFileNameByDialog] [戻り値] Variant パス付ファイル名 分離した文字は、String()で返却 分離する文字がない場合、Empty値 [引 数] isDialogTitle(String) ダイアログのタイトル isFileFilterString(String) ダイアログ中の「ファイルの種類」 ibMultiFileSelect(Boolean) 複数選択の可否 指定ブックオープン済チェック[Public Function isCheckOpenSelectBook] [戻り値] Boolean True オープンしていた False オープンしていない [引 数] isChkBookName(String) ブック名("abc.xls") Excelタイトル変更[Public Function setExcelTitle] [戻り値] Boolean True オープンしていた False オープンしていない [引 数] isExcelTitle(String) タイトル内容 Excelタイトル変更停止[Public Function unsetExcelTitle] [戻り値] Boolean True オープンしていた False オープンしていない [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし シート制御クラス[cSheetControl] Ver 1.0 Z_cSheetControl_1.0.txt cSheetControl_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isSheetName(String) ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし シート可視不可視[Public Function VisibleSheet] [戻り値] Boolean True 成功 False 失敗 [引 数] ibVisible(Boolean) True 可視 False 不可視 シート存在チェック[Public Function isCheckFoundSheet] [戻り値] Boolean True 存在していた False 存在していない [引 数] なし シート追加[Function inserSheetName] [戻り値] Boolean True 成功 False 失敗 [引 数] なし シート名変更[Function updateSheetName] [戻り値] Boolean True 成功 False 失敗 [引 数] isSheetNameAft(String) 変更後シート名 シート削除 Function deleteSheetName() [戻り値] Boolean True 成功 False 失敗 [引 数] なし 文字列操作 文字列分離[SpilitString] Ver 1.0 M_SpilitString_1.0.txt [戻り値] Variant 分離した文字は、String()で返却 分離する文字がない場合、Empty値 [引 数] isSorceString(String) 分離したい文字列 isLimitString(String) 分離したい文字列内のデリミタ文字 指定文字列内パターンマッチング[isPatternMatching] Ver 1.0 M_isPatternMatching_1.0.txt [戻り値] Boolean True 一致 False 不一致 [引 数] isTargetString(String) 比較文字列 lsChkStringArray(String()) チェック対象の文字列群 先頭に*を指定することで後方一致チェックする("*.log") 末尾に*を指定することで前方一致チェックする("/home/*") メッセージクラス(シート定義)[cMsgBySheet] Ver 1.0 Z_cMsgBySheet_1.0.txt cMsgBySheet_1.0.txt 初期化Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isSheetName 取得するシート名 isMsgId(String) メッセージID fsCoverupMsg(String) 埋込文字(CSV形式) ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし メッセージ内容取得[Public Function getMessage] [戻り値] String メッセージ内容を返却 [引 数] なし メッセージボックス表示[Public Function MessageBox] [戻り値] Boolean [引 数] なし YesNoボックス表示[Public Function YesNoBox] [戻り値] Boolean [引 数] なし メッセージグループ取得[Public Function getMsgGroup] [戻り値] String メッセージ内容を返却 [引 数] なし エラーレベル判定[Public Function isLevelError] [戻り値] Boolean [引 数] なし 警告レベル判定[Public Function isLevelWarning] [戻り値] Boolean [引 数] なし 通常レベル判定[Public Function isLevelNormal] [戻り値] Boolean [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルクラス[cFile] Ver 1.0 Z_cFile_1.0.txt cFile_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] isFileNameIncPath(String) ファイル名(パス付) パスがついていない場合、ブックと同パスとなる 相対パスがついているも、ブックが起点となる ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし 絶対パス変換[Private Function updateRootPathForWin] [戻り値] String 絶対パス [引 数] isPathName(String) パスなし、相対パス パス付ファイル名分離[Private Function SplitFileIncPath] [戻り値] String パス、またはファイル [引 数] isFileNameIncPath(String) パス付のファイル名 isLimitString(String) パスの区切り文字("\","/") iiType(Integer) 1 パス名の返却要求 2 ファイル名の返却要求 パス取得[Public Function getPathName] [戻り値] String [引 数] なし ファイル名取得[Public Function getFileName] [戻り値] String [引 数] なし ファイル存在チェック[Public Function isExist] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイル削除[Public Function deleteFile] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルオープン(読込用)[Public Function openFileForRead] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルオープン(上書用)[Public Function openFileForOutput] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイルオープン(追記用)[Public Function openFileForAppend] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ファイル書き込み[Public Function writeFileLine] [戻り値] Boolean True 成功 False 失敗 [引 数] sBuf(String) 書き込み文字列 ファイルクローズ[Public Function closeFile] [戻り値] Boolean True 成功 False 失敗 [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし マシン制御クラス[cMachineControl] Ver 1.0 Z_cMachineControl_1.0.txt cMachineControl_1.0.txt 初期化[Public Function Initialize] [戻り値] Boolean True 成功 False 失敗 [引 数] なし ステータス取得[Public Function getStatus] [戻り値] String CSV形式でプライベート変数内容を返却 [引 数] なし コンピュータ名取得[Function getComputerName] [戻り値] String OS名 [引 数] なし 環境変数取得[Function getEnv] [戻り値] String OS名 [引 数] isEnvName(String) 環境変数名 ログインユーザ名取得[Function getLoginUserName] [戻り値] String ログインユーザ名 [引 数] なし OS名取得[Function getOsName] [戻り値] String OS名 [引 数] なし 終了[Public Function Terminate] [戻り値] Boolean True 成功 False 失敗 [引 数] なし EXCELブッククラス Ver 1.0 Z_cSheetControl_1.0.txt cSheetControl_1.0.txt 初期化 Public Function Initialize() 処理概要 クラスの開始、および、初期化を行う。 戻り値 cResult getResult なし 引数 isBookPathName(String) ブックパス名 isBookFileName(String) ブックファイル名 ステータス取得 Public Function getStatus() 処理概要 クラスのフィールド値を返却する 戻り値 String CSV形式でプライベート変数内容を返却 引数 なし ブック読取専用パスワード設定 Public Sub setBookReadPasswd() 処理概要 読取専用パスワード設定 戻り値 なし 引数 isBookReadPasswd(String) 読取専用パスワード文字列 ブック書込専用パスワード設定 Public Sub setBookWritePasswd() 処理概要 書込専用パスワード設 戻り値 なし 引数 isBookReadPasswd(String) 読取専用パスワード文字列 指定ブックオープン済チェック Public Function isCheckOpenSelectBook() 処理概要 指定したブックのオープン状態を返却する 戻り値 cResult getResult [Boolean] True オープン済 False 未オープン 引数 isChkBookName(String) ブック名("abc.xls") ブックオープン Public Function openBook() 処理概要 ブックをオープンする 戻り値 cResult getResult なし 引数 ibBookUpdateLinks(Boolean) ブックパス名 ibBookReadOnly(Boolean) ブックファイル名 シート取得 Public Function getSheetObject() 処理概要 指定したシート名のシートオブジェクトを返却 戻り値 cResult getResult [Worksheet] 引数 isSheetName(String) シート名 全シート名取得 Public Function getSheetNames() 処理概要 オープンしているブックのzんシート名を返却 戻り値 cResult getResult [String] CSV形式で全シート名を返却 引数 なし ブッククローズ Public Function closeBook() 処理概要 オープン中のブックをクローズする 戻り値 cResult getResult なし 引数 なし 終了 Public Function Terminate() 処理概要 クラスの終了 戻り値 cResult getResult なし 引数 なし 命名規則 変数名 ABCDEF・・・・ (ex.lbRet,liLoopCounter,fsSheetName,ioClassArray) A 定義場所 "g" モジュール内Public,Global変数(Global) "f" クラス内フィールド(Field) "i" モジュール、クラスの引数(Input) "l" モジュール、クラス内で定義したローカル変数(Local) "c" 定数(Const) B 変数の型 "s" String "i" Integer "l" Long "d" Double "b" Boolean "t" Date "v" Variant "o" Object CDEF・・・任意の特定変数名 英単語、英文。原則和製英語不可。単語の区切りごとに大文字。 IsError、LoopCounter1 変数がテーブルの場合、最後に、Arrayを付加 IsErrorArray、LoopCounterArray
https://w.atwiki.jp/javadsge/pages/304.html
package excel; import org.apache.poi.hssf.usermodel.HSSFWorkbook; import org.apache.poi.ss.usermodel.Workbook; import org.apache.poi.ss.usermodel.Sheet; import org.apache.poi.ss.usermodel.Row; import org.apache.poi.ss.usermodel.Cell; import java.io.*; public class pro { public static void main(String[] args) { pro y=new pro(); } pro(){ Workbook wb = new HSSFWorkbook(); Sheet sheet1 = wb.createSheet(); Sheet sheet2 = wb.createSheet(); Sheet sheet3 = wb.createSheet("new sheet"); Sheet sheet4 = wb.createSheet("表計算用"); Row row1 = sheet1.createRow(0); Cell cx= row1.createCell(0); cx.setCellValue("Hello"); FileOutputStream out =null; try{ out = new FileOutputStream("sample.xls"); wb.write(out); }catch(IOException e){System.out.println(e.toString());} } }
https://w.atwiki.jp/nobotaka/pages/17.html
Option Compare Text Option Explicit Sub aaaa() Dim ws As Worksheet MsgBox ("aaa") For Each ws In Worksheets ws.Activate ActiveWindow.Zoom = 100 Next End Sub Sub aaaa01() Dim ws As Worksheet Dim OpenFileName As String ChDrive "E" ChDir "E \Documents\dev\trunk\vba" OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") If OpenFileName = "False" Then MsgBox "キャンセルされました" End If End Sub
https://w.atwiki.jp/xxxstfxxx/pages/37.html
このページを元に作成 データ整理 漢字⇒ひらがな変換 カタカナ⇒ひらがな変換 参考リンク データ整理 データの整理で一番利用するのが、Excel。 漢字⇒ひらがな変換 ゲームのデータ検索システムを作成する際、様々なまとめサイトからデータを取得するが、 そこで困るのが、サイト毎の各種名称における差異。 正しい名称は何か?各サイトの差分を抽出し、1つにまとめたい。 など、ちょっと困ってしまう。 下記の関数を標準モジュールに登録し、セルにユーザー定義関数として埋め込みを利用する。 ----------------------------------------------------------------------- 漢字変換(漢字⇒カタカナ、ひらがな⇒ひらがな) [1] targetStr 対象文字列 [2] phoneticCount 変換回数(何回目の候補を返すか) Return 変換後文字列 ----------------------------------------------------------------------- Function LIBSTF_Phonetics(ByRef targetStr As String, Optional phoneticCount As Integer = 0) As String Dim i As Integer 変換回数 Dim convStr As String 変換後文字列 変換 convStr = Application.GetPhonetic(targetStr) If convStr = "" Or Not targetStr Like "*[一-龝]*" Then 変換失敗、又は、Unicode(JIS は[亜-熙]) LIBSTF_Phonetics = targetStr Exit Function End If 変換回数に到達、又は、変換出来なくなるまで i = 0 Do Until phoneticCount = i Or Application.GetPhonetic(targetStr) = "" convStr = Application.GetPhonetic("") i = i + 1 Loop LIBSTF_Phonetics = convStr End Function カタカナ⇒ひらがな変換 上記の「漢字⇒ひらがな」変換では、カナなど変換されないため、更に関数を追加。 Excel関数に StrConv() は存在しないんだよね・・・単純な Wrapper 関数。 ----------------------------------------------------------------------- VBA StrConv [1] targetStr 対象文字列 [2] param 変換種類 1 Upper/2 Lower/3 単語の先頭大文字/4 半角⇒全角/8 全角⇒半角 16 ひらがな⇒カタカナ/32 カタカナ⇒ひらがな Return 変換後文字列 ----------------------------------------------------------------------- Public Function LIBSTF_StrConv(ByRef targetStr As String, ByRef param As VbStrConv) As String Debug.Print VbStrConv.vbHiragana 32 Debug.Print VbStrConv.vbKatakana 16 LIBSTF_StrConv = StrConv(targetStr, param) End Function 参考リンク [[]] url タグ:Excel VBA プログラミング 最終更新:0000年00月00日00時00分00秒.. 上へ https //www14.atwiki.jp/xxxstfxxx/ 編集権: 合計: - 今日: - 昨日: - トップページの合計: - 関連してるかもニュース 「近似曲線」の描画は簡単!でも、その信頼性は? - 作り方で変わる!Excelグラフ実践テク(35) - マイナビニュース 構造化Excelテク:目視前提で省略された項目名を補完して、表を構造化データにする - ITmedia エクセル2022年春コスメ「リップケア ブラー」リップクリーム&下地になるマルチリップ - Fashion Press CData、ヤフー・データソリューション向けのデータコネクタを提供(Impress Watch) - Yahoo!ニュース - Yahoo!ニュース Excelワークシートへの入力だけでクオリティーの高いチラシや資料の作成ができる新サービス「One to One セールスチラシ」の提供を12月1日に開始 - valuepress Excelなどの現場のデータを収集して全社で可視化するクラウドサービス - 日経 xTECH Active 【Excel】エクセルでピボットテーブルの列幅がリセットされる! 見やすい幅で固定する方法 - 窓の杜 Excel関数ベースのローコード言語「Power Fx」がオープンソースに - ビジネス+IT [Ctrl]、[Shift]、[Alt]、[Windows]の4キーを同時に押すとどうなる?(Impress Watch) - Yahoo!ニュース - Yahoo!ニュース 見やすい文書を作るのに、無駄にSpaceキーを使う必要なし! 職場で困らないWord術|NIKKEI - 日本経済新聞 意外と難しい「見やすい散布図」の作り方 - 作り方で変わる!Excelグラフ実践テク(34) - マイナビニュース エクセル 冬限定の美容液仕立てスキンケアパウダー、化粧持ち&スキンケア効果UPで今年も登場!美容オイルinの香り豊かなメイクアップフィクサーも限定発売 - PR TIMES じつは見込みあり?「エクセルデータ破壊おじさん」との付き合い方(PHPオンライン衆知(THE21)) - Yahoo!ニュース - Yahoo!ニュース 「エクセル」のデザインがいきなり変わってビックリ! ~「Office」の新デザインが展開中(Impress Watch) - Yahoo!ニュース - Yahoo!ニュース 業務効率爆上げの「Excelハック」を学べる! Udemy珠玉のオンライン講座 - Lifehacker JAPAN Excelのカスタマイズ ビュー を提供する機能がアップデート - マイナビニュース Excelのクイックアクセスツールバーを見逃すな、左端最上席を簡単カスタマイズ - ITpro 【Excel】エクセルの関数で2つの日付間を計算する方法 - 窓の杜 Excelファイルを複数人で編集したいなら「Teamsの併用」が合理的な理由 - TechTargetジャパン 11月の月例セキュリティ更新が公開、Excelの脆弱性がすでに悪用されているので注意を|マイクロソフト | トレンドマイクロ is702 - インターネット・セキュリティ・ナレッジ マジ「Excelができる」は神スキルだからと、Excelのスキルをまとめたツイートが話題! (2021年11月14日) - エキサイトニュース ゼロからはじめるExcel VBA+Webサービス(2) 通勤経路から運賃を自動で取得してみよう【駅すぱあとWebサービス】 - マイナビニュース 構造化Excelテク:数式を含む表を数値としてコピーする際にセルの書式設定も反映する - ITmedia Excelの文字位置、ちょっとした配慮で緩みのないカッコイイ表を作れる - ITpro 【Excel】エクセルでおせっかいなオートコンプリートをOFFにする方法 - 窓の杜 Excel 2021では、「並び替えミスで表を破壊」が防げる新関数が!フィルター/ソート/抽出の新関数はこう使おう! - 窓の杜 Excelで図形に入れるテキスト、不本意な改行を防いでキレイに収める - ITpro Microsoft Excel、新しいJavaScript API導入で独自のカスタムデータ型 - マイナビニュース Microsoft、「Context IQ」やExcelの「JavaScript API」などの「Microsoft 365」新機能を発表(ITmedia NEWS) - Yahoo!ニュース - Yahoo!ニュース 【Excel】エクセルの名簿で氏名の後ろに「様」を追加する方法 - 窓の杜 「Excel」のLET関数は“複雑な数式”を“人が読める式”に変えられる! 「Office 2021」新搭載の謎関数を攻略 - 窓の杜 ヒートマップ図面をExcelで作成するには? - 作り方で変わる!Excelグラフ実践テク(30) - マイナビニュース エクセルで描いた3D「カービィ」が話題、きっかけは“パソコン使えない上司”への救いの手 - ORICON NEWS 【Excel】エクセルで住所から都道府県名を一括抽出するテク - 窓の杜 知識ゼロでも基礎から学べる ビジネス Excel VBA入門 - nikkei BPnet Excelで丸バツを使わないチェックリスト、スマートかつ素早くセルを塗って識別 - ITpro 【Excel】コピペ後に表示されるボタンが邪魔! エクセルの貼り付けオプションをオフにする方法 - 窓の杜 【Excel】いつものフォント、フォントサイズを標準テンプレートに登録、毎度の無駄作業を省く - ITmedia ExcelとWordの連携、データはExcel側でササッと並び替える - ITpro 「Excel 4.0」マクロがとうとうデフォルト無効に ~誕生から30年、マルウェアの温床化 - 窓の杜 いまだExcelファィルに頼る建築業界にGraneetは財務管理SaaSを提供する - TechCrunch Japan 【Excel】「外部ソースへのリンク」エラーの対処方法と発生させないための対策 - ITmedia Excelで四半期計算、日付から「第 四半期」を特定する - ITpro 【Excel】数式不要で計算結果がわかる! エクセルのセルを選択するだけのステータスバーの活用法 - 窓の杜 ExcelでTEXT関数を有効活用、日付と文字列をそのまま結合できる - 日経 xTECH Active 「Office 2021」が発売 ~XLOOKUPなど新しいExcel関数も多数導入 - 窓の杜 Excelの本当に正しい使い方|日経の本 日経BP - nikkei BPnet Excel構造化テク:単位などの文字列混入で泥沼化しているセルを数値のみにする - ITmedia 即効! 仕事に役立つ関数ワザ! Excel 365/2019/2016/2013対応 - nikkei BPnet 【Excel】データの順番をすばやく入れ替えたい! エクセルの切り取りと挿入をドラッグ&ドロップで行うテク - 窓の杜 GAFA部長直伝! パソコンスキルが身につかない2大理由(Excelマクロ編) - ダイヤモンド・オンライン Office 2021がWindows 11と同じ10月5日より提供開始。Excelに「XLOOKUP」実装など - PC Watch Excel最大行(100万行)の壁を軽々超える方法 - ITmedia 【Excel】一瞬で文字列を分割・結合! エクセルで作業効率を上げるフラッシュフィルの使い方 - 窓の杜 【Excel】エクセルの「SUMIF」関数で条件ごとに売上金額を集計する方法 - 窓の杜 ゼロからはじめるExcel VBA+Webサービス(1) ニュースフィードを読んでみよう【マイナビニュース】 - マイナビニュース Excelシートからコピペした画像がボケボケ!? シートからオリジナル画像を抽出するテクニック - ITmedia 「早く知りたかった」「便利すぎて泣く」 Excelの“自動入力ショートカットキー”が話題に(ねとらぼ) - Yahoo!ニュース - Yahoo!ニュース 【Excel】そっくりなExcelブックを簡単比較:Spreadsheet Compareアプリの使い方 - ITmedia 構造化Excelテク:複数のデータが含まれたセルを1セル1データに分割する - ITmedia 構造化Excelテク:セルの結合を使わずに複数セルの中央に文字列を表示する - ITmedia 【Excel】組織図を効率よく作りたい! エクセルで簡単に概念図を作成するテク - 窓の杜 Excelの数式言語がチューリング完全に - InfoQ Japan 窓辺の小石(22) オンライン版Excelを使う - マイナビニュース 【Excel】1つひとつ手入力していない? エクセルの名簿でフリガナを簡単に入力するテク - 窓の杜 データ利活用を支援するExcelアドイン「セルフETLアシスタント」、複数ファイルのマージを可能に - クラウド Watch 【Excel】エクセルのXLOOKUP関数とテーブル機能を組み合わせると作業効率がアップ! - 窓の杜 「Excel」でMapやReduceなどが利用可能に~ラムダを引数にとる7つの関数がテスト導入 - 窓の杜 Excel×Python逆引きコードレシピ126|日経の本 日経BP - nikkei BPnet エクセルがいきなり速くなる応用ショートカット19選 - ダイヤモンド・オンライン 初心者でも簡単理解! Excelマクロで「データ入力ボタン」を作る方法 - ダイヤモンド・オンライン ショートカットキーで時短仕事術(10) Excelのブックを開く・保存・閉じるのショートカットを覚えよう - マイナビニュース 【Excel】VLOOKUP関数はもう古い! XLOOKUP関数なら簡単に大量のデータから必要な情報だけ転記できます - impress.co.jp 【Excel】数式は正しいはずなのになぜ? よくある「#VALUE!」エラーの原因と解決法 - 窓の杜 【Excel】「納期を絶対忘れないプロジェクト表」をエクセルで作るには - 窓の杜 Excel風UIのフリーCSVエディタ「CSV+」登場 MacやLinuxにも対応 - ITmedia モダンExcel入門|日経の本 日経BP - nikkei BPnet エクセルの神が教える「始点の切り替え」テクニックとは? - ダイヤモンド・オンライン 「Excel」の「VBA」でこれができるの? ワークシート上で動く虫眼鏡のデモがすごい - 窓の杜 【Excel】表を「テーブル」にするだけで作業効率がアップ! エクセルの3つのテクを活用するだけです - 窓の杜 “Excelのeスポーツ世界大会”で8人のトップ財務モデラーが腕を競う - PC Watch エクセルが劇的に速くなる「急がば回れ」テクニックとは? - ダイヤモンド・オンライン 【Excel】オートフィル使いこなせてる? エクセルで明日から使えるオートフィルの技2選 - impress.co.jp Web版Excel、業務自動化スクリプトに対応 - PC Watch 【Excel】数が多すぎて目的のシートを開けない! エクセルでシートの目次を作成する方法とは - 窓の杜 初心者でもわかるExcelマクロ入門! セルの内容が条件になる繰り返し処理をマスター - ダイヤモンド・オンライン 【Excel】セル内の文字がなぜか大きくできない!フォントサイズ設定が反映しない原因と対策 - 窓の杜 【Excel】曜日のベタ書きはダメ!ユーザー定義の表示形式を使えば日付の後に表示されます - 窓の杜 【Excel】アンケートフォームの回覧・共有とサヨナラ! エクセルとMicrosoft Formsで調査を楽にするテク - 窓の杜 Excelのステータスバーで素早く合計などを確認する - ITmedia 新入社員は「Excelを覚える」が即戦力の近道だ - 東洋経済オンライン Excelデータ分析術 | 特集 | 週刊東洋経済プラス - 週刊東洋経済プラス Excel関数ベースのプログラミング言語「Microsoft Power Fx」登場 オープンソースで公開予定 - ITmedia Excelのその使い方、間違ってませんか? 総務省の統一ルールに学ぶ、Excelへの正しいデータ入力方法6選 - 文春オンライン 違いが分かるExcel使いになるための「マクロの保存方法3種」 - ITmedia プログラミング不要でRPA、「マクロの記録」機能でExcelを自動化する - ITmedia 【Excel】数式の入力効率を大幅アップするショートカットキー - ITmedia 【Excel】マウスドラッグより超便利な「表」選択ショートカット集 - ITmedia 【Excel】よくやる操作をキー一発で可能にする方法(クイックアクセスツールバー編) - ITmedia 【Excel】今日の日付や現在時刻をショートカットで素早く入力する - ITmedia
https://w.atwiki.jp/excelvba/
ExcelVBA質問スレの過去ログ質問まとめ@wiki このwikiは回答者のために製作しました。 備忘録の他、過去の質疑を整理し、回答時の参考にするためにまとめたものです。 よって質問者に「wiki嫁」っていう使い方は想定してません。 しょうがねえ手伝ってやるかって言う凄腕のハカー・プログラマ・SEの方がいらっしゃったらぜひお願いします。 スレまとめだけじゃなくtipsとか、忘れがちだけど注意しなくちゃ逝けない点とかまとまってると、後で(俺が)見たときに楽。 ページ Excel VBA 質問スレ Part18 カウンター 今日 - 昨日 - 合計 - 名前 コメント